home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 November / 1993-11.d64 / data generator (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  60 lines
  1. 100 poke53280,6:poke53281,6:printchr$(14)chr$(8)
  2. 110 dv=peek(186):if dv<8 then dv=8
  3. 120 print"[147][159]             [196]ata [199]enerator"
  4. 130 print"                   by               "
  5. 140 print "             [202]ames [212]. [202]ones":print
  6. 150 print"[213]se this program to generate 20":print
  7. 160 print"lines of data to replace part of":print
  8. 170 print"the original data for the program,":print
  9. 180 print"'[212]he [213]nbreakable [195]ipher', on this":print
  10. 190 print"issue of [199]azette [196]isk.  ([196]epending":print
  11. 200 print"on how often data are used, periodic":print
  12. 210 print"replacement is advisable to keep":print
  13. 220 print"the system secure.)":print
  14. 230 print"[159]       [208]ress <space> to continue"
  15. 240 geta$:ifa$<>" "then240
  16. 250 print"[147][193]fter the 20 lines are displayed":print
  17. 260 print"on the screen, type [158]new on the":print
  18. 270 print"blank line following the last line":print
  19. 280 print"of data and press <[210][197][212][213][210][206]>.":print
  20. 290 print"[193]ll 20 lines of data should still":print
  21. 300 print"be on the screen.  [198]or each line, press":print
  22. 310 print"<[210][197][212][213][210][206]> in order that the line will be":print
  23. 320 print"entered into memory.  [211]ave the block of":print
  24. 330 print"data as a separate program.  [212]he block":print
  25. 340 print"of data can then be merged with the":print
  26. 350 print"primary program, after the original":print
  27. 360 print"[159]       [208]ress <space> to continue"
  28. 370 geta$:ifa$<>" "then370
  29. 380 print"[147]lines (5000-5100) of data have been":print
  30. 390 print"deleted.":print
  31. 400 print"[212]his procedure can be repeated":print
  32. 410 print"until a sufficient number of lines":print
  33. 420 print"of data are generated.  ([211]ix blocks":print
  34. 430 print"of new data will suffice.)":print
  35. 440 print"[217]our system for enciphering will then"
  36. 450 print"be secure from other [199]azette [196]isk":print
  37. 460 print"users!  [201]f you do not have a program":print
  38. 470 print"for merging programs, check the past":print
  39. 480 print"issues of [199]azette [196]isk.":print
  40. 490 print"[159]       [208]ress <space> to continue"
  41. 500 geta$:ifa$<>" "then500
  42. 510 print"[147][212]he lines of data will be numbered":print
  43. 520 print"sequentially beginning with the line":print
  44. 530 print"number that you specify.  [212]he beginning":print
  45. 540 input"line number is";ln
  46. 550 fora=0to1
  47. 560 forr=0to9
  48. 570 forc=0to9:p$(a,r,c)=chr$(int(rnd(0)*43+48))
  49. 580 ifp$(a,r,c)=":"orp$(a,r,c)=";"thenp$(a,r,c)=chr$(int(rnd(0)*26+65))
  50. 590 ifp$(a,r,c)="<"orp$(a,r,c)="="thenp$(a,r,c)=chr$(int(rnd(0)*26+65))
  51. 600 ifp$(a,r,c)=">"orp$(a,r,c)="@"thenp$(a,r,c)=chr$(int(rnd(0)*26+65))
  52. 610 ifp$(a,r,c)="?"thenp$(a,r,c)=chr$(int(rnd(0)*25+65))
  53. 620 nextc,r
  54. 630 forr=0to9
  55. 640 printr+ln" data ";:forc=0to9:printp$(a,r,c)",";:ifc=9thenprintp$(a,r,c);
  56. 650 nextc:print
  57. 660 next r
  58. 670 ln=ln+10
  59. 680 nexta
  60.